home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / Config / TEX.CONFIG < prev    next >
Text File  |  1996-09-26  |  13KB  |  881 lines
  1. /* $VER: TEX.CONFIG 3.512 */
  2. VERSIONCHECK 3848 "TEX.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.   SETVAR "_Path" "TEX:Texte"
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   IF
  23.     COMPARE 0 _CHANGED;
  24.     NOP;
  25.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|Ab_speichern & Ende*|A_bbrechen !^"
  26.     BREAK 0 _RN HIGHER ;
  27.   IF
  28.     COMPARE _RN 1;
  29.     SAVE _FILENAME ;
  30.     NOP;
  31.   QUITED
  32.   ;
  33.  
  34.  
  35. /* Variablen */
  36.  
  37. SETVAR "_ScrRelWidth" 698
  38. SETVAR "_ScrRelHeight" 528
  39. SETVAR "_AutoIndent" 5
  40. SETVAR "_WordDef" 2
  41. SETVAR "_WordWrap" 2
  42. SETVAR "_Undo" 20
  43. SETVAR "_Optimize" TRUE
  44. SETVAR "_FRPattern" "~(#?(.info|.bak))"
  45.  
  46.  
  47. /* Tastaturbelegung */
  48.  
  49. KEY "control 1"
  50.   GETNUMBER "Speicher Makro :" 1
  51.   MACROREC _RN
  52.   ;
  53.  
  54. KEY "control 2"
  55.   MACROSTOP
  56.   ;
  57.  
  58. KEY "control 3"
  59.   GETNUMBER "Spiele Makro :" 1
  60.   MACROPLAY _RN 1
  61.   ;
  62.  
  63. KEY "control 4"
  64.   GETNUMBER "Führe Makro aus" 1
  65.   SETVAR "_Reg1" _RN
  66.   GETNUMBER "Führe n mal aus" 1
  67.   MACROPLAY _REG1 _RN
  68.   ;
  69.  
  70. KEY ")"
  71.   WRITETEXT ")"
  72.   CURSORLEFT 0
  73.   MATCHBRACKET
  74.   DELAY 10
  75.   MATCHBRACKET
  76.   CURSORRIGHT 0
  77.   ;
  78.  
  79. KEY "numpad shift 1"
  80.   GOTO _XPOS _LENGTH
  81.   ;
  82.  
  83. KEY "numpad shift 2"
  84.   CURSORDOWN 0
  85.   ;
  86.  
  87. KEY "numpad shift 3"
  88.   PAGEDOWN 90
  89.   ;
  90.  
  91. KEY "numpad shift 4"
  92.   CURSORLEFT 0
  93.   ;
  94.  
  95. KEY "numpad shift 5"
  96.   SETTITLE "Marke gesetzt." 0
  97.   SETMARK
  98.   ;
  99.  
  100. KEY "numpad shift 6"
  101.   CURSORRIGHT 0
  102.   ;
  103.  
  104. KEY "control <"
  105.   GETNUMBER "Bewege Block x Spaltenn\nnach links :" 1
  106.   BLOCKLEFT _RN
  107.   ;
  108.  
  109. KEY "control >"
  110.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  111.   BLOCKRIGHT _RN
  112.   ;
  113.  
  114. KEY "control y"
  115.   DELETELINE
  116.   ;
  117.  
  118. KEY "control x"
  119.   GETNUMBER "Schneide Block in Buffer :" 1
  120.   COPYBLOCK _RN
  121.   DELETEBLOCK
  122.   ;
  123.  
  124. KEY "control c"
  125.   GETNUMBER "Copiere Block in Buffer :" 1
  126.   COPYBLOCK _RN
  127.   SETTITLE "Block kopiert." 0
  128.   ;
  129.  
  130. KEY "control v"
  131.   GETNUMBER "Eeinfügen aus Buffer :" 1
  132.   INSERTBLOCK _RN
  133.   ;
  134.  
  135. KEY "numpad shift 7"
  136.   GOTO _XPOS 1
  137.   ;
  138.  
  139. KEY "numpad shift 8"
  140.   CURSORUP 0
  141.   ;
  142.  
  143. KEY "numpad shift 9"
  144.   PAGEUP 90
  145.   ;
  146.  
  147. KEY "backspace"
  148.   BACKSPACE 0
  149.   ;
  150.  
  151. KEY "tab"
  152.   TAB 0
  153.   ;
  154.  
  155. KEY "shift tab"
  156.   BACKTAB
  157.   ;
  158.  
  159. KEY "numpad enter"
  160.   RETURN
  161.   ;
  162.  
  163. KEY "return"
  164.   RETURN
  165.   ;
  166.  
  167. KEY "delete"
  168.   DELETE
  169.   ;
  170.  
  171. KEY "shift delete"
  172.   DELETETOEOL
  173.   ;
  174.  
  175. KEY "up"
  176.   CURSORUP 0
  177.   ;
  178.  
  179. KEY "shift up"
  180.   PAGEUP 90
  181.   ;
  182.  
  183. KEY "alt up"
  184.   GOTO _XPOS 1
  185.   ;
  186.  
  187. KEY "down"
  188.   CURSORDOWN 0
  189.   ;
  190.  
  191. KEY "shift down"
  192.   PAGEDOWN 90
  193.   ;
  194.  
  195. KEY "alt down"
  196.   GOTO _XPOS _LENGTH
  197.   ;
  198.  
  199. KEY "right"
  200.   CURSORRIGHT 0
  201.   ;
  202.  
  203. KEY "shift right"
  204.   GOTO @EOL @EOL
  205.   ;
  206.  
  207. KEY "alt right"
  208.   NEXTWORD
  209.   ;
  210.  
  211. KEY "left"
  212.   CURSORLEFT 0
  213.   ;
  214.  
  215. KEY "shift left"
  216.   GOTO @SOL @SOL
  217.   ;
  218.  
  219. KEY "alt left"
  220.   LASTWORD
  221.   ;
  222.  
  223. KEY "f1"
  224.   GOTEXTMARK 0
  225.   ;
  226.  
  227. KEY "shift f1"
  228.   SETTEXTMARK 0
  229.   ;
  230.  
  231. KEY "f2"
  232.   GOTEXTMARK 1
  233.   ;
  234.  
  235. KEY "shift f2"
  236.   SETTEXTMARK 1
  237.   ;
  238.  
  239. KEY "f3"
  240.   GOTEXTMARK HIGHER
  241.   ;
  242.  
  243. KEY "shift f3"
  244.   SETTEXTMARK HIGHER
  245.   ;
  246.  
  247. KEY "f4"
  248.   GOTEXTMARK 3
  249.   ;
  250.  
  251. KEY "shift f4"
  252.   SETTEXTMARK 3
  253.   ;
  254.  
  255. KEY "f5"
  256.   GOTEXTMARK 4
  257.   ;
  258.  
  259. KEY "shift f5"
  260.   SETTEXTMARK 4
  261.   ;
  262.  
  263. KEY "shift f6"
  264.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  265.   KEY "f6"
  266.     WRITETEXT _RS;
  267.   ;
  268.  
  269. KEY "shift f7"
  270.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  271.   KEY "f7"
  272.     WRITETEXT _RS;
  273.   ;
  274.  
  275. KEY "shift f8"
  276.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  277.   KEY "f8"
  278.     WRITETEXT _RS;
  279.   ;
  280.  
  281. KEY "shift f9"
  282.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  283.   KEY "f9"
  284.     WRITETEXT _RS;
  285.   ;
  286.  
  287. KEY "shift f10"
  288.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  289.   KEY "f10"
  290.     WRITETEXT _RS;
  291.   ;
  292.  
  293. KEY "}"
  294.   WRITETEXT ")"
  295.   CURSORLEFT 0
  296.   MATCHBRACKET
  297.   DELAY 10
  298.   MATCHBRACKET
  299.   CURSORRIGHT 0
  300.   ;
  301.  
  302. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  303.   IF {@CLEARRN}
  304.     GOTOMOUSE {@SAMEPOS};
  305.     SETMARK;
  306.     GOTOMOUSE ;
  307.   ;
  308.  
  309. KEY "rawmouse lbutton mouse_leftpress"
  310.   GOTOMOUSE
  311.   ;
  312.  
  313. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  314.   MACROPANNEL
  315.   ;
  316.  
  317. KEY "rawmouse rbutton lbutton mouse_rightpress"
  318.   UNMARK
  319.   ;
  320.  
  321.  
  322. /* Menues */
  323.  
  324. MENU "PROJEKT"
  325.  
  326. ITEM "Öffne..." "O"
  327.   IF
  328.     COMPARE 0 _CHANGED;
  329.     NOP;
  330.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen|_Speichern  & neu öffnen*|A_bbrechen !^"
  331.     BREAK 0 _RN HIGHER ;
  332.   IF
  333.     COMPARE _RN 1;
  334.     SAVE _FILENAME ;
  335.     NOP;
  336.   GETFILE "" ""
  337.   OPEN _PATH
  338.   ;
  339.  
  340. ITEM "Alten File neu laden" "alt r"
  341.   IF
  342.     COMPARE 0 _CHANGED;
  343.     NOP;
  344.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  345.     BREAK 0 _RN 1 ;
  346.   OPEN _FILENAME
  347.   ;
  348.  
  349. ITEMBAR
  350.  
  351. ITEM "Setze/lösche... »" ""
  352.   NOP
  353.   ;
  354.  
  355. SUB "Text unverändert" ""
  356.   SETVAR "_changed" 0
  357.   ;
  358.  
  359. SUB "Ändere Sleepmode" ""
  360.   IF
  361.     COMPARE 1 _SLEEPMODE;
  362.     SETVAR "_SleepMode" 0;
  363.     SETVAR "_SleepMode" 1;
  364.   ;
  365.  
  366. SUB "Ändere EditMode" ""
  367.   IF
  368.     COMPARE 1 _EDITMODE;
  369.     SETVAR "_EditMode" 0;
  370.     SETVAR "_EditMode" 1;
  371.   ;
  372.  
  373. ITEMBAR
  374.  
  375. ITEM "Neu" "alt n"
  376.   IF
  377.     COMPARE 0 _CHANGED;
  378.     NOP;
  379.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Löschen|_Speichern & löschen*|A_bbrechen !^"
  380.     BREAK 0 _RN HIGHER ;
  381.   IF
  382.     COMPARE _RN 1;
  383.     SAVE _FILENAME ;
  384.     NOP;
  385.   NEW
  386.   SETTITLE "Text gelöscht." 0
  387.   ;
  388.  
  389. ITEMBAR
  390.  
  391. ITEM "Umbenennen..." "R"
  392.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  393.   SETVAR "_FileName" _RS
  394.   SETVAR "_Path" _RS
  395.   ;
  396.  
  397. ITEM "Speichern" "S"
  398.   SAVE _FILENAME
  399.   ;
  400.  
  401. ITEM "Speichern als..." "A"
  402.   GETFILE "" "" {@SAVE}
  403.   SETVAR "_FileName" _PATH
  404.   SAVE _FILENAME
  405.   ;
  406.  
  407. ITEM "Speichern als RAW..." ""
  408.   GETFILE "" "" {@SAVE}
  409.   SAVE _PATH {@RAW}
  410.   ;
  411.  
  412. ITEM "Speichern & neu öffnen..." ""
  413.   SAVE _FILENAME
  414.   GETFILE "" ""
  415.   OPEN _PATH
  416.   ;
  417.  
  418. ITEM "Text ausdrucken" "*"
  419.   SAVE "PRT:"
  420.   ;
  421.  
  422. ITEMBAR
  423.  
  424. ITEM "Neues Fenster »" ""
  425.   NOP
  426.   ;
  427.  
  428. SUB "GROßES FENSTER" "B"
  429.   NEWED "TeX.CONFIG"
  430.   WINDOW 0 0 0 0
  431.   ;
  432.  
  433. SUB "kleines Fenster" "W"
  434.   NEWED "TeX.CONFIG"
  435.   WINDOW 100 50 100 50
  436.   ;
  437.  
  438. ITEM "Iconify" "escape"
  439.   ICONIFY
  440.   ;
  441.  
  442. ITEM "Hide" "alt h"
  443.   HIDE
  444.   ;
  445.  
  446. ITEM "WinArranger" "§"
  447.   WINARRANGER 1
  448.   ;
  449.  
  450. ITEM "WinManager" "$"
  451.   WINMANAGER
  452.   ;
  453.  
  454. ITEMBAR
  455.  
  456. ITEM "Über WRITE" "!"
  457.   ABOUT
  458.   ;
  459.  
  460. ITEMBAR
  461.  
  462. ITEM "Speichern & Verlassen" "E"
  463.   IF
  464.     COMPARE 0 _CHANGED;
  465.     NOP;
  466.     SAVE _FILENAME ;
  467.   QUITED
  468.   ;
  469.  
  470. ITEM "Ende" "Q"
  471.   IF
  472.     COMPARE 0 _CHANGED;
  473.     NOP;
  474.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|_Speichern & Ende*|A_bbrechen !^"
  475.     BREAK 0 _RN HIGHER ;
  476.   IF
  477.     COMPARE _RN 1;
  478.     SAVE _FILENAME ;
  479.     NOP;
  480.   QUITED
  481.   ;
  482.  
  483. MENU "EDIT"
  484.  
  485. ITEM "Undo" "ß"
  486.   UNDO 1
  487.   ;
  488.  
  489. ITEM "Undo..." ""
  490.   GETNUMBER "Wieviel Schritte wollen\nrückgängig machen ?" 1
  491.   UNDO _RN
  492.   ;
  493.  
  494. ITEMBAR
  495.  
  496. ITEM "Setze Marke" "M"
  497.   SETTITLE "Marke gesetzt." 0
  498.   SETMARK
  499.   ;
  500.  
  501. ITEM "Lösche Marke" "U"
  502.   UNMARK
  503.   ;
  504.  
  505. ITEMBAR
  506.  
  507. ITEM "Ausschneiden" "X"
  508.   COPYBLOCK 0
  509.   DELETEBLOCK
  510.   ;
  511.  
  512. ITEM "Kopieren" "C"
  513.   COPYBLOCK 0
  514.   SETTITLE "Block kopiert." 0
  515.   ;
  516.  
  517. ITEM "Einfügen" "V"
  518.   INSERTBLOCK 0
  519.   ;
  520.  
  521. ITEM "Löschen" ""
  522.   DELETEBLOCK
  523.   ;
  524.  
  525. ITEMBAR
  526.  
  527. ITEM "Clipboard »" ""
  528.   NOP
  529.   ;
  530.  
  531. SUB "Ausschneiden nach Clip" "alt x"
  532.   COPYBLOCK 0
  533.   BUFFERTOCLIP 0 0
  534.   DELETEBLOCK
  535.   ;
  536.  
  537. SUB "Nach Clip kopieren" "alt c"
  538.   COPYBLOCK 0
  539.   BUFFERTOCLIP 0 0
  540.   SETTITLE "Block kopiert." 0
  541.   ;
  542.  
  543. SUB "Einfügen aus Clip" "alt v"
  544.   CLIPTOBUFFER 0 0
  545.   INSERTBLOCK 0
  546.   ;
  547.  
  548. SUB "Buffer nach Clip" ""
  549.   BUFFERTOCLIP 0 0
  550.   ;
  551.  
  552. SUB "Clip nachBuffer" ""
  553.   CLIPTOBUFFER 0 0
  554.   ;
  555.  
  556. ITEMBAR
  557.  
  558. ITEM "Lösche Buffer" ""
  559.   CLEARBUFFER 0
  560.   SETTITLE "OK." 0
  561.   ;
  562.  
  563. ITEM "Speicher Block als..." ""
  564.   COPYBLOCK 0
  565.   GETFILE "" "" {@SAVE}
  566.   SAVEBUFFER _PATH 0
  567.   ;
  568.  
  569. ITEM "Drucke Block" ""
  570.   COPYBLOCK 0
  571.   SAVEBUFFER "PRT:" 0
  572.   ;
  573.  
  574. ITEM "Füge File ein..." ""
  575.   GETFILE "" ""
  576.   LOADBUFFER _PATH 0
  577.   INSERTBLOCK 0
  578.   ;
  579.  
  580. ITEMBAR
  581.  
  582. ITEM "Block links" "<"
  583.   BLOCKLEFT 1
  584.   ;
  585.  
  586. ITEM "Block rechts" ">"
  587.   BLOCKRIGHT 1
  588.   ;
  589.  
  590. ITEM "Block linksbündig..." ""
  591.   GETNUMBER "Mache Block bündig zu Zeile :" _XPOS
  592.   BLOCKLFTALIG _RN
  593.   ;
  594.  
  595. ITEM "Block rechtsbündig..." ""
  596.   GETNUMBER "Mach Block bündig zu Zeile :" _XPOS
  597.   BLOCKRGHTALIG _RN
  598.   ;
  599.  
  600. ITEM "Zentriere Block..." ""
  601.   BLOCKCENTER 1 80
  602.   ;
  603.  
  604. MENU "INTERN"
  605.  
  606. ITEM "Parse Buffer..." ""
  607.   GETNUMBER "Parse Buffer :" 0
  608.   SETTITLE "PARSING..." 1
  609.   PARSEBUFFER _RN
  610.   FLASH
  611.   ;
  612.  
  613. ITEM "Parse Block" ""
  614.   COPYBLOCK 1
  615.   SETTITLE "PARSING..." 1
  616.   PARSEBUFFER 1
  617.   FLASH
  618.   ;
  619.  
  620. ITEM "Parse File..." ""
  621.   GETFILE "" ""
  622.   LOADBUFFER _PATH 1
  623.   SETTITLE "PARSING..." 1
  624.   PARSEBUFFER 1
  625.   FLASH
  626.   ;
  627.  
  628. ITEMBAR
  629.  
  630. ITEM "Führe Buffer aus..." ""
  631.   GETNUMBER "Führe Buffer aus :" 0
  632.   SETTITLE "EXECUTING..." 1
  633.   DOBUFFER _RN
  634.   FLASH
  635.   ;
  636.  
  637. ITEM "Führe Block aus" ""
  638.   COPYBLOCK 1
  639.   SETTITLE "EXECUTING..." 1
  640.   DOBUFFER 1
  641.   FLASH
  642.   ;
  643.  
  644. ITEM "Führe Komando aus..." "D"
  645.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  646.   DOSTRING _RS
  647.   ;
  648.  
  649. ITEM "Führe File aus..." ""
  650.   GETFILE "" ""
  651.   LOADBUFFER _PATH 1
  652.   SETTITLE "EXECUTING..." 1
  653.   DOBUFFER 1
  654.   FLASH
  655.   ;
  656.  
  657. ITEMBAR
  658.  
  659. ITEM "Nehme Makro auf" "1"
  660.   MACROREC 0
  661.   ;
  662.  
  663. ITEM "Stoppe  Aufnahme" "2"
  664.   MACROSTOP
  665.   ;
  666.  
  667. ITEM "Spiele ab" "3"
  668.   MACROPLAY 0 1
  669.   ;
  670.  
  671. ITEM "Speile mehrmals ab..." "4"
  672.   GETNUMBER "Replay it n times " 1
  673.   MACROPLAY 0 _RN
  674.   ;
  675.  
  676. MENU "EXTERN"
  677.  
  678. ITEM "Neue Shell" "."
  679.   SYSTEM "NewShell"
  680.   ;
  681.  
  682. ITEM "DOS-Execute..." ""
  683.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  684.   SYSTEM _RS {@ASYNC}
  685.   ;
  686.  
  687. ITEMBAR
  688.  
  689. ITEM "Lösche File..." ""
  690.   GETFILE "" ""
  691.   ;
  692.  
  693. ITEM "Erschaffe Directory..." ""
  694.   GETFILE "" "" {@SAVE}
  695.   ;
  696.  
  697. ITEMBAR
  698.  
  699. ITEM "Font..." ""
  700.   GETFONT
  701.   ;
  702.  
  703. MENU "REXX"
  704.  
  705. ITEM "Führe Rexx aus..." ""
  706.   GETSTRING "Geben sie ein REXX-Komando ein :" ".wrx"
  707.   DOREXX _RS {@ASYNC}
  708.   ;
  709.  
  710. ITEMBAR
  711.  
  712. MENU "UTLITIES"
  713.  
  714. ITEM "Schreibe Zeichen..." "alt space"
  715.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  716.   WRITECHAR _RN
  717.   ;
  718.  
  719. ITEM "Zeige Zeit & Datum" "T"
  720.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  721.   ;
  722.  
  723. ITEMBAR
  724.  
  725. ITEM "UPPER word" "^"
  726.   UPPERBLOCK @SOW @SOW @EOW @EOW
  727.   ;
  728.  
  729. ITEM "lower word" "#"
  730.   LOWERBLOCK @SOW @SOW @EOW @EOW
  731.   ;
  732.  
  733. ITEMBAR
  734.  
  735. ITEM "Match Bracket" "("
  736.   MATCHBRACKET
  737.   ;
  738.  
  739. MENU "SEARCH"
  740.  
  741. ITEM "Zähle..." ""
  742.   GETFINDREPLACE _FINDSTRING ""
  743.   IF
  744.     COMPARE _MARKED HIGHER;
  745.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  746.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  747.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  748.   ;
  749.  
  750. ITEMBAR
  751.  
  752. ITEM "Finde..." "F"
  753.   GETFINDREPLACE _FINDSTRING ""
  754.   IF
  755.     COMPARE _MARKED HIGHER;
  756.     FIND @MARKA @MARKA @MARKB @MARKB ;
  757.     FIND @CURSOR @CURSOR @EOT @EOT ;
  758.   ;
  759.  
  760. ITEM "Finde noch einmal" "N"
  761.   IF
  762.     COMPARE _MARKED HIGHER;
  763.     FIND @MARKA @MARKA @MARKB @MARKB ;
  764.     FIND @CURSOR @CURSOR @EOT @EOT ;
  765.   ;
  766.  
  767. ITEMBAR
  768.  
  769. ITEM "Ersetze..." "Y"
  770.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  771.   IF
  772.     COMPARE _MARKED HIGHER;
  773.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  774.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  775.   ;
  776.  
  777. ITEM "Ersetze noch einmal" "Z"
  778.   IF
  779.     COMPARE _MARKED HIGHER;
  780.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  781.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  782.   ;
  783.  
  784. ITEM "Ersetze alle..." ""
  785.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  786.   IF
  787.     COMPARE _MARKED HIGHER;
  788.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  789.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  790.   FLASH
  791.   ;
  792.  
  793. ITEM "Ersetze alle schnell..." ""
  794.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  795.   SILENT
  796.   IF
  797.     COMPARE _MARKED HIGHER;
  798.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  799.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  800.   WINDOW 0 0 0 0
  801.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  802.   ;
  803.  
  804. ITEMBAR
  805.  
  806. ITEM "Suche nach Muster..." ""
  807.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  808.   SETVAR "_PatCase" _RS
  809.   FINDPATTERN @CURSOR @EOT {@CASE}
  810.   ;
  811.  
  812. ITEM "Suche noch einmal" ""
  813.   FINDPATTERN @CURSOR @EOT {@CASE}
  814.   ;
  815.  
  816. ITEM "Suche nach Muster (no Case)..." "Ö"
  817.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  818.   SETVAR "_PatNoCase" _RS
  819.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  820.   ;
  821.  
  822. ITEM "Suche noch einmal" "Ä"
  823.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  824.   ;
  825.  
  826. ITEMBAR
  827.  
  828. ITEM "Springe zu Zeile..." "G"
  829.   GETNUMBER "Springe zu Zeile :" _YPOS
  830.   GOTO _XPOS _RN
  831.   ;
  832.  
  833. ITEMBAR
  834.  
  835. ITEM "Zeige Index..." "J"
  836.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  837.   SHOWINDEX _RS {@CASE}
  838.   ;
  839.  
  840. ITEM "TeX-Contents" "alt lamiga i"
  841.   SHOWINDEX "(\\chapter|\\sub|\\item|\\begin{enum|\\begin{item|\\end{enum|\\end{item)#?" {@CASE}
  842.   ;
  843.  
  844. ITEM "TeX-Labels" ""
  845.   SHOWINDEX "(#?\\label{#?" {@CASE}
  846.   ;
  847.  
  848. MENU "PREFS"
  849.  
  850. ITEM "Globale Prefs" ""
  851.   GPREFS
  852.   ;
  853.  
  854. ITEM "Prefs" "+"
  855.   PREFS
  856.   ;
  857.  
  858. MENU "HELP"
  859.  
  860. ITEM "Help..." "Shift Help"
  861.   HELP
  862.   ;
  863.  
  864. ITEM "Zeige Variablen" ""
  865.   SHOWVARS
  866.   ;
  867.  
  868. ITEM "Zeige Funktionen" ""
  869.   SHOWFUNCTIONS
  870.   ;
  871.  
  872. ITEM "Zeige ASCII-Codes" ""
  873.   SHOWASCII
  874.   ;
  875.  
  876. ITEM "Hilfe zu Stichwort..." "?"
  877.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  878.   GUIDEHELP _RS
  879.   ;
  880.  
  881.